home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / ximage.t < prev    next >
Text File  |  1990-06-01  |  4KB  |  103 lines
  1. (herald ximage (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XIMAGE) (CONS 'XIMAGEP (MAKE-BYTEV 88)))
  3. (DEFINE (XIMAGE-WIDTH X) (MREF-INTEGER (CHK-XIMAGEP X) 0))
  4. (DEFINE (XIMAGE-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 0 Y))
  5. (DEFINE (XIMAGE-HEIGHT X) (MREF-INTEGER (CHK-XIMAGEP X) 4))
  6. (DEFINE (XIMAGE-HEIGHT! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 4 Y))
  7. (DEFINE (XIMAGE-XOFFSET X) (MREF-INTEGER (CHK-XIMAGEP X) 8))
  8. (DEFINE (XIMAGE-XOFFSET! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 8 Y))
  9. (DEFINE (XIMAGE-FORMAT X) (MREF-INTEGER (CHK-XIMAGEP X) 12))
  10. (DEFINE (XIMAGE-FORMAT! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 12 Y))
  11. (DEFINE (XIMAGE-DATA X)
  12.         ((LAMBDA (X Y) (CONS 'CHARAP (MREF-POINTER X Y)))
  13.          (CHK-XIMAGEP X)
  14.          16))
  15. (DEFINE (XIMAGE-DATA! X Y)
  16.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARAP Z)))
  17.          (CHK-XIMAGEP X)
  18.          16
  19.          Y))
  20. (DEFINE (XIMAGE-BYTE_ORDER X) (MREF-INTEGER (CHK-XIMAGEP X) 20))
  21. (DEFINE (XIMAGE-BYTE_ORDER! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 20 Y))
  22. (DEFINE (XIMAGE-BITMAP_UNIT X) (MREF-INTEGER (CHK-XIMAGEP X) 24))
  23. (DEFINE (XIMAGE-BITMAP_UNIT! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 24 Y))
  24. (DEFINE (XIMAGE-BITMAP_BIT_ORDER X) (MREF-INTEGER (CHK-XIMAGEP X) 28))
  25. (DEFINE (XIMAGE-BITMAP_BIT_ORDER! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 28 Y))
  26. (DEFINE (XIMAGE-BITMAP_PAD X) (MREF-INTEGER (CHK-XIMAGEP X) 32))
  27. (DEFINE (XIMAGE-BITMAP_PAD! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 32 Y))
  28. (DEFINE (XIMAGE-DEPTH X) (MREF-INTEGER (CHK-XIMAGEP X) 36))
  29. (DEFINE (XIMAGE-DEPTH! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 36 Y))
  30. (DEFINE (XIMAGE-BYTES_PER_LINE X) (MREF-INTEGER (CHK-XIMAGEP X) 40))
  31. (DEFINE (XIMAGE-BYTES_PER_LINE! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 40 Y))
  32. (DEFINE (XIMAGE-BITS_PER_PIXEL X) (MREF-INTEGER (CHK-XIMAGEP X) 44))
  33. (DEFINE (XIMAGE-BITS_PER_PIXEL! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 44 Y))
  34. (DEFINE (XIMAGE-RED_MASK X) (MREF-INTEGER (CHK-XIMAGEP X) 48))
  35. (DEFINE (XIMAGE-RED_MASK! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 48 Y))
  36. (DEFINE (XIMAGE-GREEN_MASK X) (MREF-INTEGER (CHK-XIMAGEP X) 52))
  37. (DEFINE (XIMAGE-GREEN_MASK! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 52 Y))
  38. (DEFINE (XIMAGE-BLUE_MASK X) (MREF-INTEGER (CHK-XIMAGEP X) 56))
  39. (DEFINE (XIMAGE-BLUE_MASK! X Y) (SET-MREF-INTEGER! (CHK-XIMAGEP X) 56 Y))
  40. (DEFINE (XIMAGE-OBDATA X)
  41.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  42.          (CHK-XIMAGEP X)
  43.          60))
  44. (DEFINE (XIMAGE-OBDATA! X Y)
  45.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  46.          (CHK-XIMAGEP X)
  47.          60
  48.          Y))
  49. (DEFINE (XIMAGE-F-CREATE_IMAGE X)
  50.         ((LAMBDA (X Y) (CONS 'XIMAGEPROC (MREF-POINTER X Y)))
  51.          (CHK-XIMAGEP X)
  52.          64))
  53. (DEFINE (XIMAGE-F-CREATE_IMAGE! X Y)
  54.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XIMAGEPROC Z)))
  55.          (CHK-XIMAGEP X)
  56.          64
  57.          Y))
  58. (DEFINE (XIMAGE-F-DESTROY_IMAGE X)
  59.         ((LAMBDA (X Y) (CONS 'INTPROC (MREF-POINTER X Y)))
  60.          (CHK-XIMAGEP X)
  61.          68))
  62. (DEFINE (XIMAGE-F-DESTROY_IMAGE! X Y)
  63.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-INTPROC Z)))
  64.          (CHK-XIMAGEP X)
  65.          68
  66.          Y))
  67. (DEFINE (XIMAGE-F-GET_PIXEL X)
  68.         ((LAMBDA (X Y) (CONS 'UNSIGNEDPROC (MREF-POINTER X Y)))
  69.          (CHK-XIMAGEP X)
  70.          72))
  71. (DEFINE (XIMAGE-F-GET_PIXEL! X Y)
  72.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-UNSIGNEDPROC Z)))
  73.          (CHK-XIMAGEP X)
  74.          72
  75.          Y))
  76. (DEFINE (XIMAGE-F-PUT_PIXEL X)
  77.         ((LAMBDA (X Y) (CONS 'INTPROC (MREF-POINTER X Y)))
  78.          (CHK-XIMAGEP X)
  79.          76))
  80. (DEFINE (XIMAGE-F-PUT_PIXEL! X Y)
  81.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-INTPROC Z)))
  82.          (CHK-XIMAGEP X)
  83.          76
  84.          Y))
  85. (DEFINE (XIMAGE-F-SUB_IMAGE X)
  86.         ((LAMBDA (X Y) (CONS 'XIMAGEPROC (MREF-POINTER X Y)))
  87.          (CHK-XIMAGEP X)
  88.          80))
  89. (DEFINE (XIMAGE-F-SUB_IMAGE! X Y)
  90.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XIMAGEPROC Z)))
  91.          (CHK-XIMAGEP X)
  92.          80
  93.          Y))
  94. (DEFINE (XIMAGE-F-ADD_PIXEL X)
  95.         ((LAMBDA (X Y) (CONS 'INTPROC (MREF-POINTER X Y)))
  96.          (CHK-XIMAGEP X)
  97.          84))
  98. (DEFINE (XIMAGE-F-ADD_PIXEL! X Y)
  99.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-INTPROC Z)))
  100.          (CHK-XIMAGEP X)
  101.          84
  102.          Y))
  103.